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I. INTRODUCTION 



This workbook gives a series of exercises that show the new user how 
to use the Commodore PET 2001 computer. The most effective way to use 
the workbook is to sit down with a PET and go through the exercises as 
they are presented. Enough space has been provided in the workbook for 
you to add your own examples as you develop them. Later, when you need 
to refresh your memory on a particular topic, these examples should 
supply pertinent, meaningful information. 

A. Assumptions Made About the User 

Some PET users are comfortable with mathematics. However this 
workbook assumes that the majority are not. For that reason, most 
exercises will use nothing more than high school arithmetic. 

This workbook also assumes you know something about the S3m.tax 
and semantics of the BASIC programming language. If you do not, 
we recommend that you obtain one of the following books: 

BASIC Programming , J. Kemeny and T. Kurtz 
BASIC , Albrecht, Finke, Brown 

What Do You Do After You Hit Return ? Peoples Computer Co. 
Basic BASIC , James Coan 
Advanced BASIC , James Coan 

Read about BASIC syntax; then alternate between this workbook and 
your text on BASIC. That way you will learn both BASIC and how 
to use the PET. 

B. Notation Used in This Workbook 

We use a consistent notation in this workbook to indicate what 
is to be typed on the keyboard (T:), what appears on the TV 
display (R:), and what indicates blanks are to be typed (b) . For 
example : 

T: info ('RETURN') key 

means to type the characters contained on the line after the 
colon (:) followed by a 'RETURN'. 

R: response 

means that the system response to the previous T: line should be 
a line on the TV. 
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Blanks are important. They are specified by b. For example: 
T: ?"ABbC" (' RETURN • key) 

means type ?, then ".then the letter A, then the letter B, then a 
space, then the letter C, then " followed by a 'RETURN'. Now 
let's run that example all together: 

T: ?"ABbC" ('RETURN' key) 
R: AB C 

The special keys on the PET keyboard can cause some confusion. 
This workbook identifies the special keys with the notation 
'KEYNAME'. 'KEYNAME' means press the named key. The unquoted 
sequence of characters OTHER means, press the five keys OTHER 
in succession. 

Example: Special key notation 
T: 'STOP' 



means press the key labeled STOP. 

T: STOP 
R: BREAK 
R: READY. 

means press the 4 keys S T P in succession. 
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II. SUBSCRIPTED VARIABLES 



Just like a regular variable, a subscripted variable names a 
logical location in the computer's memory. These locations may be 
thought of as small, contiguous boxes, such as post office boxes, where 
the subscripted variable is the name of a box and the contents of the 
box is the value of the subscripted variable. Another way of thinking 
of these memory locations is as rows or columns. In the example below 
the memory locations are the boxes, the contents of the memory are the 
numbers in the boxes, and the address or name of the memory location 
is the subscripted variables on the left. 



The value of A(0) is 1 

The value of A(3) is 211 

The name of the location of 3 is A(l) 



^ !!£- 5y co lumn^IiX-. one row Is called a one-dimensional arrav~7 

or vector. Two-dimensional arrays consist of both" rows and columis; ~ 

sometimes called a matrix. The subscripts define the row and the column. 



A(0) 


1 


A(l) 


3 


A(2) 


10 


A(3) 


211 



Col 1 



Row 1 
Row 2 



Col 2 



Col 3 



A (1,1) 


A(l,2) 


A(l,3) 


A(2,l) 


A(2,2) 


A(2,3) , 



Subscripted variables make keeping track of elements in an array or 
table much easier. In the PET BASIC, numeric, integer, and string 
variables may be subscripted. Using subscripted variables makes it easy 
to assign a lot of values to a lot of variables. The reason this is so 
easy is that subscripted variables work so well in FOR-NEXT loops. We 
will be using several examples where the subscripted variable is set to 
the value of the subscript. 



Exercise: Input and output of non-subscripted and subscripted arrays. 

T: NEW 

T: 10 DATA 5,7,8,11,12 

T: 20 READ A1,A2,A3,A4,A5 

T: 30 PRINT A1;A2;A3;A4;A5 

T: RUN 

R: 5 7 8 11 12 
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Without subscripted arrays you must write each variable separately. 
This isn't bad with only five variables but think of 100. The following 
code uses subscripts to do the same thing. 



20 FOR I = 1 TO 5 
30 READ A (I) 
40 PRINT A^I) ; 
50 NEXT I " 
RUN 

5 7 8 11 12 



A. Legal Subscripts 

Legal values for subscripts are non-negative integers. Variables, 
formulas, functions, and constants may be used for subscripts. 

Exercise: Show that variables, functions, and formulas are 
legal subscripts. 



T: NEW 
T: 10 A=2 
T: 20 B=3 
T: 30 C=5 

T: 40 FOR 1=1 TO 10 

T: 50 D(I)=I 

T: 60 NEXT I 

T: 70 PRINT D(A*B-C) 

T: 80 PRINT D(INT(C/A)) 

T: 90 PRINT D(C-INT(B/A)+A) 

T: RUN 

R: 1 

R: 2 

R: 6 

R: READY. 



B. Dimensions 

A subscripted variable does not need a corresponding DIM state- 
ment as long as the val ue of the subsc ript does not exceed 10 
(this IS true even in multiple subs cripts) . If you intend to 
use a subscript of 07 the maximum value of a subscript is still 
10. So if you use as a subscript you may have up«to 11 for 
each subscripted variable without needing a DIM statement for 
that variable. 
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Exercise: Find the limit of non-dimensioned subscripted 
numeric variables. 

T: 10 FOR J=l TO 20 

T: 20 FOR 1=1 TO 20 

T: 30 A%(I,J)=I 

T: 40 PRINT A%(I,J);I;J 

T: 50 NEXT I 

T: 60 NEXT J 

T: 70 END 

T: RUN 

R: 111 

R: 2 2 1 




R: 10 10 1 

R: ? BAD SUBSCRIPT ERROR IN 30 

Without a DIM statement for A% the system will not continue when 
either I or J exceeds 10. 

Exercise: Demonstrate a non-dimensioned subscripted variable 
starting with 0. 



T: 


NEW 


T: 


10 FOR 1=0 TO 10 


T: 


20 A(I)=I 


T: 


30 PRINT A(I);I 


T: 


40 NEXT I 


T: 


RUN 


R: 





R: 


1 1 


R: 


2 2 

• 
• 


R: 


10 10 


R: 


READY . 



The following list is the maximum allowable DIMensions for an 
8K PET without getting a ?0UT OF MEMORY ERROR. These were 
checked out using the calculator mode, which means there was 
no program in the machine. The maximum number of subscripts is 3. 

DIM A(14ifl) DIMA(37,36) DIM A(10,10,10) 

DIM A$ (1431) DIM A$ (38, 37) DIM A$ (11,11,10) | 

DIM A% (1432) DIM A% (41, 40) DIM A% (14,14,14)/ 



SUBSCRIPTED VARIABLES 



If you observe that the maximum value of the 3-dimensional array for 
A is 10, it follows from previous examples that A would never 
need a DIM statement. 



The previous list of dimensioned arrays is somewhat misleading. 
If the dimension of a variable exceeds 255, the array wraps 
around and starts over. 




T: DIM A(300) 

T: A(0)=0:A(255)=255:PRINT A(0) ;A(255) 

R: 255 

T: A(256)=256:PRINT A(0) ;A(255) ;A(256) 

R: 256 255 256 



As you can see, the number 256 was stored in A(0) . 

Let s use an array and a subscripted variable to check the PET 
random-number generator by rolling & We'll let D(l) be the 

storage location when a 1 is rolled, D(2) the location for a 2, 
and so on. Let's roll the die 6000 times and see if each number 
has an equal probability of coming up. 

Exercise: Check if the random number generator gives reasonable 
results throwing a die. 

T: NEW 

T: 10 FOR J-1 TO 6 

T: 20 D(J)=0 

T: 30 NEXT J 

T: 40 FOR 1=1 TO 6000 

T: 50 K=INT>(6*RND(1)+1) 



Generate random numbers 1 through 6. RND(l) generates random 
numbers between and 1. A given random number may be equal to 
but will always be less than 1. 

T: 60 D(K)=D(K)+1 
T: 70 NEXT I 

T: 80 PRINT D(l) ;D(2) ;D(3) ;D(4) ;D(5) ;D(6) 
T: RUN 

R: 1015 1005 964 964 1050 1002 
R: READY. 

The run time for this many random nvraibers is over a minute. These 
numbers should vary each time the program is rxm. What does this 
prove? 
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Ill . STRINGS 

Each computer system has its own character set, that is, a collection 
of symbols which the computer recognizes. These symbols may be digits, 
alphabetic letters, or special characters. In our case, we are talking about 
the symbols on the PET keyboard. A number is assigned to each character 
(symbol) that represents the character in the computer. ^A^trlng Ts~lief ined 
to be one or more characters. A sfcr jjig^may be a message, a name, an address, 
etc. The PET uses two character sets. One set is defined for the POKE 
statement while the other character set is defined for the PRINT statement. 

You may switch back and forth between graphics and lower case charac- 
ters by changing memory location 5946 8^ to a 14 for lower case or a 12 f or 
g raphics . When location 59468 contains a 14 both the PRINT and POKE 
statements will display lower case characters. 

To switch 

T: POKE 59468,14 
R: READY. 

Using the shift key will now give lower case characters. 

T: A (when holding shift key down) 
R: a 

R: READY. 

T: POKE 59468,12 

R: READY. 

Using the shift key will now give graphic characters. 

To permit intercomputer communication and establish a standard, the 
^erican S^tandard C^ode for Information Interchange (ASCII) character set 
was defined. It includes all letters (both upper and lower case), digits, 
and many special symbols. Some of the characters used in BASIC are taken 
from the ASCII character set. The character set used with the POKE 
command will be described in the workbook on graphics. Both character 
sets are in the APPENDIX of this workbook. When we talk about strings in 
this workbook, we will mean the ASCII character set and its numerical 
representation. For example, the ASCII character A is represented by the 
number 65, the character B by the number 66, and the character 1 by the 
number 49. The numerical representation of the PET keyboard uses the 
numbers 0-255. The PRINT statement displays some characters and treats 
others as cursor control so that not all 256 characters are visible on 
the screen. 

The string functions make the PET a powerful and versatile computer. 
By using" the "strliag functions the'PET' can truly become a personal compiTEST?. 
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STRINGS 



It is reasonably easy to tailor your p rograms so that they 
actually carry on a dialogue with you r[^ANIMALi and ELIZA^are 
examples of prog rams that make extensive use of strings fo carry on 

^..jH^Qg ^^- _] Strings are also useful in computer-aided instruction 
and in searching library indexes. 



There are several programs at the end of this workbook showing the 
various techniques for using strings. There are also several problems 
for you to solve. The best way to learn to use strings is to write 
programs that use strings. As you go through the examples in this 
section, be sure you understand what is being done before you continue. 
Some of the examples are easy to read and understand; other examples are 
more complicated. All examples should be tried on your PET. 

A. Legal String Names 

A string name is a variable name followed by a dollar sign ($) . 
A string name may be up to 6 character s, including the dollar 
sign ($) . Only the first two characters of the name are 
actually used, however. The first character must be alphabetic. 
If more than 6 alphabetic characters are used, a syntax error 
results. However, you may use at least 50 characters if they 
are all numeric except the first which must be alphabetic. 
Since only the first two characters are used in the variable 
name, you must be careful in your naming conventions. A string 
is defined by enclosing it in quotes. For example, to show that 
only the first two characters are used. 
Exercise: Check string variable names. 



NEW 

ABCDE$="J" 
AB123$="K" 
PRINT ABCDE$,AB123$ 
K K 
PRINT AB$ 
K 

A123456789$="S" f 
PRINT Al$ J 
S 

ABCDEFG$="B" 
? SYNTAX ERROR 



The ? SYNTAX ERROR shows that 7^characters are not legal for a 
string variable name. " 



1 101 Games, David Ahl 

2 Creative Computing July-Aug 1977 Vol 3, No 4 
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B . Subscripted String Variables 

A subscripted variable need not be dimensioned if the subscript 
will not exceed 10. A non-subscripted variable is unique and 
distinct from a subscripted variable of the same name. For 
example, A$ is distinct from A$(0) or A$(l). 

Exercise: Show the independence of variable names. 



T: NEW 

T: 10 A$="A" 

T: 20 A$(0)="B" 

T: 30 A$(1)="C" 

T: 40 A$(2)="D" 

T: 50 PRINT A$ ;A$ (0) ;A$ (1) ; A$ (2) 

T: RUN 

R: ABCD 



Note that is a valid subscript. Also note in statement 10, 
A$ is not subscripted and is unique and distinct from all sub- 
scripted variables of the same name. It was not necessary to 
DIMension A$(0)-A$(3) because the subscript does not exceed 10. 

Exercise: Show that string arrays greater than 10 must be 
dimensioned. 



T: 10 FOR 1=1 TO 11 

T: 20 A$(I)="*" 

T: 30 NEXT I 

T: 40 END 

T: RUN 

R: ?BAD SUBSCRIPT ERROR IN 20 



In the above example, A$ must have a DIM A$(ll) statement since 
the subscript value does exceed 10. 



C. Maximim String Length 

Exercise: Determine the maximum string length. 

T: NEW . 

T: FOR 1= 1 TO 255 :A$=A$*"D": NEXT I 

R: READY 



Note that 255 characters in a string is ok. 



T: NEW . 

T: FOR 1= 1 TO 256 :A$=A$»"D": NEXT I 

R: ? STRING TOO LONG ERROR 



Note that 256 characters in a string is invalid. 
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IV. OPERATIONS ON STRINGS 



A string variable may be lengthened by concatenation. Concatenate 
means to attach. 

Exercise: Concatenate three strings. 

T: NEW 

T: 10 A$="P" 

T: 20 B$="E';^ ^ 

T: 30 C$=A$»B$*"T" 

T: 40 PRINT C$ 

T: RUN 

R: PET 

Let's look at the way the + sign is interpreted when used with numeric 
values and when used with string values. 

Exercise: Show how the + sign is used with numbers and with characters. 



T: 
T: 
T: 


NEW 

10 A$=<i2£> itt-t i 
20 B$="456" 






T: 


30 A=123 






T: 


40 B=456 




T: 
T: 


50 C$=A$+B$ 
60 C=A+B 




c 


T: 
T: 


70 PRINT C$,C 
RUN 






R: 


123456 579 


c 



4^ 



In statement 50, the string B$ is concatenated (attached) to the right-hand 
side of the string in A$. In statement 60, a numeric addition is made. 

Strings need to be manipulated in a different manner than numeric 
values . T he + sign j^ s the only arithmetic operator that is valid to us e 
with charactfer strings! However, t he rela tional 0£er ators">^ <" , and sign 
do work with strings in th e following manne r. A character is less than^c 
equal to , or greater than fthe numerical representa tion of the-ch^ ractet^ it 
is being compared to. Since the numerical representation of B is 66 and 
A is 65, A is less than B. The Boolean (logical) operator s AND, OR , and 
NOT are invalid when used with strings. — — 

Exercise: Show that the logical operators are not allowed with strings. 

T: C$=A$ OR B$ 

R: TYPE MISMATCH ERROR 

A. Statements 

1. INPUT is used to input strings or numeric values from the 
keyboard. INPUT works essentially the same when inputting 
string characters as it does when inputting numeric values. 
For example: 



4-1 



PET STRING AND ARRAY HANDLING 



T: NEW 

T: 10 INPUT A$,A 

T: 20 PRINT AS, A 

T: RUN 

R: ? 



At this point you may input up to 72 characters, a comma, and a 
numeric value. The comma separates the two input values. 

T: ATEST=,10 
R: ATEST= 10 
R: READY. 



In the previous example you can put in the string you want, then 
hit 'RETURN'. The system will then prompt with another ? and 
_jgal t until you inp ut the n umeric va lue, flacirvalue mav~be"^enitered^ 
I on a separate line by hitting a 'RETURN' for each entry or on the / 
same line by using commas between each value. / 



Exercise: Use the above program to input values a line at a time. 



T: RUN 

R: ? 

T: ATEST= 

R: ? 

T: 10 

R: ATEST= 10 



2. DATA, READ, RESTORE . Data may be put in a program by the DATA 
statement and a corresponding READ statement. A DATA statement 
must have a corresponding value for each variable read. However, 
a RESTORE will restore a DATA statement so that it may be read 
more than once. 

Exercise: Use DATA, READ, and RESTORE statements to get strings 
into your program. 



NEW 

10 DATA "A", "B" ^tv^clv^t \ ^ 

20 DATA C,D I vi 

30 READ A$,B$ 

40 PRINT A$,B$ 

50 READ C$,D$ 

60 PRINT C$,D$ 

70 RESTORE 

80 GO TO 30 

RUN 

A B 
C D 
A B 
C D 
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The program is now in a continuous loop because RESTORE 
allows the DATA statements to be read over and over. 

T: STOP 

R: BREAK IN 40 (This statement number depends on when the 
T: 70 STOP key is hit.) 

T: RUN 
R: A B 
R: C D 

R: ?OUT OF DATA ERROR IN 30 
R: READY. 

When the RESTORE is removed (statement 70) the DATA state- 
ments are only "read" once. Notice that in a DATA statement 
a st ring character does not h ave to be enclosed in qu otes. 
See statement 20. 

3. GET . The GET statement may be used with either numeric or 
string variables. Get A$ will accept any single character 
typed from the keyboard. 

Exercise: Input a character from the keyboard during 
program execution. 

T: NEW 

T: 10 FOR 1=1 TO 10 
T: 20 GET A$:IF A$="" GO TO 20 
T: 30 PRINT A$ 
T: 40 NEXT I 
T: RUN 
T: A 
R: A 

Statement 20 is set up for a continuous wait loop until a 
character is typed from the keyboard. The double quote 
("") is used bec ause it is the null or empty value of t he 
string. As soon as a character is typed on the keyboard," 
it will be displayed on the screen. 

T: 'STOP' 

R: BREAK IN 20 

B. Functions 

1. ASC. The ASC function returns the ninneric value corresponding 
to the ASCII character of the first character in a string. 
This function may be used to find the numeric values of the 
PET character set. 
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Exercise: Determine the numerical value of a PET character. 



T: NEW 

T: 10 FOR 1=1 TO 1000 

T: 20 GET A$:IF A$="" GO TO 20 

T: 30 A=ASC(A$) 

T: 40 PRINT A$,A 

T: 50 NEXT I 

T: RUN 

T: A 

R: A 65 

T: any character 

R: 

T: 'STOP' 

R: BREAK IN 20 




The numeric value you get using this code will give a 
different character when used with the POKE statement 
For example, if an A is typed using the above code, the 
integer that is returned is 65. 

For example^ 

T: POKE 
R: 4 

This character is the upper case character of the A key A 
list of both numerical representations of the PET character 
set may be found in the APPENDIX. 

CHR$. The CHR$ function returns a character corresponding 
to the integer given. The integer value must be between 
and 255. The CHR$ function is the inverse of the ASC 
S"''^uo^.'^^^ converts in the opposite direction, 

ihe CHR? function is given an integer value and returns 
the corresponding character. The ASC function is given a 
character and returns the corresponding integer value. 

Exercise: Display the numerical equivalent of each 
character. 



T: 


NEW 




T: 


10 FOR 1=1 TO 255 




T: 


20 B$=(iiHk430 ChK^' 


cn 


T: 


30 PRINT I,B$ 




T: 


40 GET A$:IF A$="" 


GO TO 40 


T: 


50 NEXT I 




T: 


RUN 




R: 


1 




T: 


any key 
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This program will display an integer code (0-255) and the 
character corresponding to that integer (only the integers 
33-127_and 161-255 will display a character o n the screen 
in this code) each time you type any key on the keyboarcIT" 

Exercise: Show that CHR$ is the inverse of ASC. 



T: 


NEW 


T: 


10 FOR 1=0 TO 255 


T: 


20 B$=CHR$(I) 


T: 


30 A=ASC(CHR$(I)) 


T: 


40 PRINT A,B$,I 


T: 


50 GET A$:IF A$="" GO TO 50 


T: 


60 NEXT I 


T: 


RUN 


R: 





T: 


any key 



Statement 20 converts the value of I to its equivalent PET 
character. Statement 30 converts the PET character back to 
its numeric value. Statement 50 is a loop to allow you to 
control the rate at which things are displayed. 

Exercise: Demonstrate the type of CHR$ . 

T: NEW 

T: 10 B=CHR$(5) 
T: 20 PRINT B 
T: RUN 

R: ?TYPE MISMATCH ERROR IN 10 

Remember that CHR$ returns a character and that B is a real 
variable. To help remember the type of variable to use, 
rem ember has nQ.^=4$ j- dollar^ sign, therefore, the variable 
"t ^^ must not have a ($) sign. Since CHR$~~Has~^"^oTIar~iIgn 
(?) the variable name must also have a dollar sign ($) . 

B$ = CHR$(40) 

C = ASCC'B") 

3. LEFT$. The LEFT$ function is used to select characters 

from the left-hand portion of a string. To use LEFT$, give 
the string name and a count of the characters chosen from 
the left side of the string. 
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Exercise: Select characters from a string. 

T: NEW 

T: 10 A$="ABCDE" 

T: 20 B$=LEFT$(A$,1) 

T: 40 PRINT B$ 

T: RUN 

R: A 

R: READY. 

T: 20 FOR I = 1 TO 5 

T: 30 B$=LEFT$(A$,I) 

T: 50 NEXT I 

T: RUN 

R: A 

R: AB 

R: ABC 

R: ABCD 

R: ABODE , Afi^ 

R: READY. ^Ilfju^ V^'\ \^ ^ a(.T>^ 



7 



Caution: No error message is given if I is greater than 
\)ty«— 5, that is, greater than the number of character s in A$. 

4. RIGHT$. The RIGHT$ function is used to select a character 
from the right-hand portion of a string. It works just 
like LEFT$ except it selects characters starting from the 
right-hand side. To demonstrate this, just change LEFT$ 
to RIGHT$ in the previous example . 

Caution: / no error message is given~if you exceed thai 
\)vC^. riength oT the string. ^ ~ — ' 

5. MID$. The MID$ function is used to select any character 
or group of characters from a string. MID$ is the most 
powerful function of the three functions LEFT$, RIGHT$ and 
MID$. To use MID$, just give the string name, the number 
of the character you want to start with, and the number of 
characters you want to select. 
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Exercise: Select chaxacters from a string. 



T 


: NEW 


T 


: 10 A$="ABCDE" 


T 


: 20 B$=MID$(A$,2,2) 


T 


: 30 PRINT B$ 


T 


: RUN 


R 


: BC 


R 


READY. 


T 


: 20 FOR I = 1 TO 5 


T 


: 30 B$=MID$(A$,1,I) 


T 


40 PRINT B$ 


T 


50 NEXT I 


T: 


RUN 


R: 


A 


R: 


AB 


R: 


ABC 


R: 


ABCD 


R: 


ABODE 


R: 


READY. 



T 
T 
T 
T 
T 
T 
T 
T 
T 
R 
R 
R 
R 
R 
R 



NEW 
5 J=0 

10 A$="ABCDE" 
20 FOR I = 5 TO 
30 J=J+1 
40 B$=MID$(A$,I,J) 
45 PRINT B$ 
50 NEXT I 
RUN 
E 

DE 

CDE 

BCDE 

ABODE 

READY. 




Caution: (no error message is given if I or J^or^botlTare^ 
rgfeater than the number of characters in A$./ — 
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Exercise: Demonstrate the use of LEFT$, RIGHT$, and MID$ 
to convert a sentence to pig Latin. 



T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
UT 
T 
T 
T 



1- 




NEW 

10 PRINT"GIVE ME A SENTENCE*' 
15 DIM B$(19) 
20 INPUT A$ 

30 J=l :REM J POINTS TO THE NEXT CHARACTER 
50 FOR I=J TO 72 
60 FOR K=l TO 19 Um.. i^U. 

80 B$(K)=MID$(A$,J+K'-1,1) 

85 IF B$(K)="" THEN 1=72 

90 IF B$(K)="b" GO TO 120 

95 IF 1=72 GO TO 120 
100 C$=C$+B$(K) <~- 
110 NEXT K 
120 J=J+K 
130 D$=LEFT$(C$,1) 



REM GET NEXT CHARACTER 
REM SET UP TO STOP 
REM CHECK FOR WORD BOUNDARY 




150 E$=MID$(C$,2,K-2)--^ |o>-<.*- W >Vf,i^v- u 

160 F$=F$+E$+D$+"Ab" i f> L - L ^ -\. 



170 C$="" 
180 NEXT I 
190 PRINT F$ 
RUN 

GIVE ME A SENTENCE 
? 

CONVERT THIS TO PIG LATIN 
ONVERTCA HISTA OTA IGPA ATINLA 
READY. 



ut'^ '■y^^ ^X- 



6. STR$ . The STR$ function is used to conve rt a numbe r to it s 
string equivalent. If the number has more than 9 digits, 
rounding'Takes^piace and the value is converted to exponential 
form. 

M }£> i ? 

could be used to line up the decimal points in a check 
balancing program. 
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R: 
R: 
R: 
R: 



A program to line up the decimal point, 



Exercise: 

T: NEW 

T: 10 DATA"'10.03","100.25",".25","6,13","0" 

T: 20 READ A$ 

T: 30 IF A$="0" GO TO 120 

T: 40 FOR 1=1 TO LEN(A$) 

T: 50 IF MID$(A$,I,1)="." GO TO 70 

T: 60 NEXT I 

T: 70 FOR J=l TO lO-I , . / , ^ 

T: 80 A$="b"+A$ * u-C ^ y^l^O..- ^f^},r f?.. 



T: 90 NEXT J 
T: 100 PRINT A$ 
T: 110 GO TO 20 
T: 120 END 
T: RUN 

10.03 
100.25 
.25 
6.13 



Exercise iJconvert a number to its string equivalent,! ]) t^t^ 



T: A=1234567885123 
T: PRINT STR$(A) C, 
R: 1.23456789E+12 



VAL . The VAL function is used to convert a string containing 
numeric characters to a numeric value. This function is 



the inverse of th e STR$ functi^ nj;_JTfthefiri[rl 
other than digits in the string variable, only those digits 




to the left of the first non-numeric character will be con 
verted to a numeric value. If the number is greater than 
lE+38, an overflow error resultsj 

Exercise: Convert a string to its nvunerical equivalent. 



T: 


NEW 


T: 


10 A$="1234" 


T: 


20 B$="A1234" 


T: 


30 C$="1234B" 


T: 


40 A=VAL(A$) 


T: 


50 B=VAL(B$) 


T: 


60 C=VAL(C$) 


T: 


70 PRINT A,B,C 


T: 


RUN 


Rs 


123^ 



123^ 



Statement 10 is converted as you would expect. Statement 20 
is set to zero since the first character is a non-digit. 
Statement 30 is converted up to the first non-digit. 
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8. LEN. The LEN function counts the number of characters 
in a string and returns that number. 



Exercise: Use the LEN function to split a string into 
two strings of equal or almost equal length. 



T: NEW 

T: 10 INPUT A$ 

T: 20 A=LEN(A$) 

T: 30 B=INT(A/2) 

T:J5-IF A=l GO TO 50 

T: 40 B$=LEFT$(A$,B) J , 

T: 50 C$=RIGHT$(A$,A-B) iA/^*" 

T: 60 PRINT B$,C$ 

T: RUN 

R: ? 



Input a string of your choice. 



Exercise; (a program to input any word and tell if it 
is spelled the same backward as forward. 



T: NEW 

T: 10 INPUT A$ 

T: 15 C$= 

T: 20 FOR J=LEN(A$) TO 1 STEP-1 

T: 30 C$=C$fMID$(A$,J,l) 

T: 40 IF C$=A$ THEN 80 

T: 50 NEXT J 

T: 60 PRINT A$;" IS NOT THE SAME SPELLED BACKWARD" 

T: 70 GO TO 10 

T: 80 PRINT A$;" IS THE SAME SPELLED BACKWARD" 

T: 90 GO TO 10 

T: RUN 

R: ? 

T: KOOK 

R: KOOK IS THE SAME SPELLED BACKWARD 

R: ? 
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V. EXERCISES 



The following problems are to check yourself to see how well you 
understand strings and arrays. 

1. Write a program that will input a string and print out the 
number of characters in the string. 

2. Write a program that will input a day of the week and tell 
whether or not it is a weekend day. 

3. Write a program that will input a string and print it out in 
reverse order 

4. Write a program that will count the number of words in a string. 
A word is defined to be any sequence of one or more alphabetic 
characters delimited by 'SPACE', coma, period, exclamation mark, 
colon, or end of line. 

5. Write a program that will input the time of day in the form 
11;15 A.M. or 8; 20 P.M. and print out the time of day based on 

the 24 hour clock. 11; 45 A.M. = 11^5 HOURS: 8; 20 P.M. = 20^0 HOURS. 

6. Write a program to input a string and print out how many vowefs 
it contains and in what positions. 

7. Write a program to input a string and change all J's to H's. 

8. Write a program that changes every letter in the alphabet to 
another letter. For example, A's might become C's and C's might 
become Z's, etc. 

9. Write a program that will input any letter in the alphabet and 
print out the number 1-26 to which it corresponds. 

10. Write a program to read a sentence and squeeze out all blanks. 

11. Write a program to sort character strings in alphabetic order. 

Examples of programs to solve these problems can be found at the end 
of this section. Try to write these 11 programs yourself. When you have 
finished compare your programs to the ones shown. Test data is provided 
for you to check how well your program works. Try to allow for all legal 
and illegal input. 
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PET STRING AND ARRAY HANDLING 



1. 5 REM INPUT A STRING AND PRINT OUT THE NUMBER OF CHARACTERS 

7 REM IN IT 

10 PRINT "TYPE A STRING" 

20 INPUT A$ 

30 L=LEN(A$) 

40 PRINT L 

50 GO TO 10 

100 REM TEST DATA 

110 REM INPUT A SINGLE CHARACTER (TEST END POINT) 

120 REM INPUT A LONG LINE WITH EXACTLY 38 CHARACTERS IN IT (TEST 

125 REM END POINT OF INPUT) 

130 REM ""(TEST NULL STRING) 

140 REM TEST A LINE EXACTLY 39 CHARACTERS LONG. CLEAR THE SCREEN 

143 REM AND USE THE DOWN CURSOR SO 

145 REM THAT THE INPUT REQUEST IS ON THE BOTTOM LINE, I.E. TEST 

146 REM THE EFFECT OF SCROLLING. 

(150 REM INPUT JUST A 'RETURN' 

160 REM TEST A LINE EXACTLY 78 CHARACTERS LONG. 

170 REM TEST A LINE 80 CHARACTERS LONG. AFTER THIS TEST, 'STOP', 

175 REM 'RETURN' THEN PRINT' A$ 

180 REM T RY^A STRING WITH A COMMA (,), T HEN TRY A COL ON (:) 

190 REMh1iE~LAST 5 ARE LIMITATIONS OF THE PET INPUT~STAT^ffiNf7] 

195 REmJyOU CANNOT AVOID THEM UNLESS YOU USE GET$. J 

210 END ' ' " ' ~~ 



2. 5 REM A PROGRAM TO INPUT A DAY OF THE WEEK AND TELL IF IT IS A 

7 REM WEEK DAY 
10 INPUT A$ 

20 IF A$=" SUNDAY" OR A$=" SATURDAY" GO TO 80 

30 IF A$="MONDAY" OR A$="TUESDAY" GO TO 100 

40 IF A$="WEDNESDAY" OR A$="THURSDAY" GO TO 100 

50 IF A$="FRIDAY" GO TO 100 

60 PRINT A$,"IS NOT A DAY OF THE WEEK" 

70 GO TO 10 

Statements 20 through 50 check the input against the days of 
the week branching to the appropriate message when a comparison 
is found. Statement 60 is an error message because no comparison 
was found. Statement 70 gives another chance for a correct input. 

80 PRINT A$,"IS A WEEKEND DAY" 

90 GO TO 10 

100 PRINT A$,"IS A WEEK DAY" 

110 GO TO 10 

200 REM TEST DATA 

210 REM TRY ALL 7 LEGAL DAYS 

220 REM TRY AN ILLEGAL DAY 

230 REM TRY"" 

240 REM TRY 'RETURN' 

250 END 
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5 REM A PROGRAM TO INPUT A STRING AND PRINT IT OUT IN 

7 REM REVERSE ORDER. h^t. 

10 INPUT"INPUT A STRING'J;^$ 

20 B$""" ^ /"^-^ t^Hj^~ ^ / 

25 IF LEN(A$)=0 GO TO 60 

Check for null input. 

30 FOR I=LEN(A$)TO 1 STEP -1 

Start at the end of the string and decrease I by one each time 
through the loop. 

40 B$=B$+MID$(A$,I,1) 

Each time through the loop add a character to B$. We start 
with I set to the position of the right most character . We 
then decrease the position count by 1 each time. The MID$ 
function will pick one character each time. In other words, 
put characters from the end of the input string on the 
beginning of the output (reversed) string. 

50 NEXT I 
60 

70 PRINT B$ ^o^^<^ £>^i^vv5v- trlc^i' cLt^ cl^\,LdxYi.^i- 

80 GO TO 10 J " Q t 

100 REM TEST DATA fiWUCfc 6> <^,^l^uAJJr on^-Xfif 

110 REM INPUT A SINGLE CHARACTER (TEST END POINT) -ttvj Lo ^-^/^ ^^'oj- kiJi'>.u>>^ 

120 REM INPUT A LONG LINE WITH EXACTLY 23 CHARACTERS IN IT (TEST ^ ^ . 

125 REM END POINT OF INPUT) </ 

130 REM"" (TEST NULL STRING) 

140 REM TEST A LINE EXACTLY 24 CHARACTERS LONG. CLEAR THE SCREEN 

143 REM AND USE THE DOWN CURSOR SO 

145 REM THAT THE INPUT REQUEST IS ON THE BOTTOM LINE, I.E. TEST 

146 REM THE EFFECT OF SCROLLING. 
/150 REM INPUT JUST A 'RETURN' 

160 REM TEST A LINE EXACTLY 63 CHARACTERS LONG. 

170 REM TEST A LINE 64j CHARACTERS LONG. AFTER THIS TEST, 'STOP', 

175 REM 'RETURN' THEN PRINT A$ 

177 REM T RY A STRING WIT HACCTIMA (.). THEN TRY ^ A_COLON_( ! ) 

180 REMITTHETlAST 5 ARE LIMITATIONS OF PET INPUT~STATEMENT. YOU " 

185 rem/ CANNOT AVOID THEM UNLESS YOU USE GET$. 

200 END ~~— 



PRINT"REVERSED STRING IS: ^-4 



4. 5 REM COUNT THE WORDS IN A STRING 

8 B$=" ,.:!" 

10 PRINT "TYPE A STRING" 

20 INPUT A$ 

24 N=0 

26 S=0 
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30 L=LEN(A4)____^ 

31 IF L=gLjT ffl:N 50 ] 

32 FOR 1=1 TO L 
.^34 FOR J=l TO LEN(B$) 

36 IF MID$(A$, I,1)<>MID $(B$,J,1)THEN 44 ^ ^_ , v 

38 IF I-S > l/ra|NJ^N+T] ^ o - S - \ <^°^ , i 

40 S=I NCHI^:^^^^--^ ^ Jo^. iivo 

42 GO TO 46 4^c.K'- » , cf 1 >^ 

-M^ NEXT J . _ 

— 46 NEXT I J } LU ^^Lc^^ , 1 k.' 

48 IF SOL THEN N=N+1 i^ii ^ v,^. cA*-'' ^ 

50 PRINT N;" IS NUMBER OF WORDS" i. \ ^ ^.^U- ^ta.^ 

52 GO TO 10 ^'^"^ ^ ^a. i • 

100 REM TEST DATA ' f 

110 REM INPUT A SINGLE CHARACTER (TEST END POINT) „ T i 

120 REM INPUT A LINE OF ALL SEPARATORS ETC. 

130 REM "" (TEST NULL STRING) 

140 REM TEST WORD WITH LOTS OF TRAILING SEPARATORS 

150 REM INPUT JUST A 'RETURN' 

160 REM TEST A WORD EXACTLY 78 CHARACTERS LONG. 

170 REM TEST A WORD 80 CHARACTERS LONG. AFTER THIS TEST, 'STOP', 

175 REM 'RETURN' THEN PRINT A$ 



5. 5 REM CONVERT TIME TO THE 24 HOUR CLOCK 

.'^ 10 INPUT "WHAT IS THE TIME" ; A$ 

n-PP fl »> L=LEN(A$) . 

40 PRINT "BAD TIME" 

50 GO TO 10 

fl.rv^. 60 B$=RIGHT(A$,4) 

70 IF(B$<> "A.M.") AND (B$<>"P.M.") THEN 40 ^n^/>VuX 

H ^ A B- 80 H=VAL(A$) . 

90 IF H<0 OR H>12 THEN 40 I tirci-i*^- 

100 FOR 1=1 TO L-4 J - -M- 

110 IF MID$(A$,I,1)=";"THEN 140 

The semicolon Is chosen as a separator Instead of the colon 
because the INPUT statement thinks the colon is a delimiter. 

120 NEXT I k^i- c-v r ^^y^^ 

130 GO TO 40 ^ ' V- 

140 C$=RIGHT$(A$,L-I) ) 

O^. 150 M=VAL(C$) \ VmJwU/- - 

160 IF M<0 OR M>59 THEN 40 J 

170 FOR J=I+1 TO L-4 

180 IF MID$(A$,J,1)=";" THEN 210 

190 NEXT J S 

200 GO TO 40 1 ^ 

210 D$=RIGHT$(A$,L-J) \ 

3 _ pp. 220 S=VAL(D$) 

230 IF S < OR S > 59 THEN 40 

250 IF B$-"P.M." THEN H-IH-12 



5-4 




EXERCISES 

260 TP$=STR$(H)<^ I I ; J ^ , 

270 IF LEN(TP$)/i;> THEN TP$=" O' +RIGHT$(TP$,1)'^': 

280 T$=TP$ V_y 

290 TP$=STR$(M) ~ " 

300 IF LEN(TP$)<.3 THEN TP$=" 0" +RIGHT$ (TP$,1) 

310 T$=T$+":"+RIGHT$(TP$,2) 

320 TP$=STR$(S) 

330 IF LEN(TP$)<3 THEN TP$=" O" +RIGHT$ (TP$,1) 

340 T$=T$+":"+RIGHT$(TP$,2) /- - 

350 PRINT 24 HOUR TIME IS "/If$| t^vO/^ U u^^fB 't^^ 

360 GO TO 10 ^ ^ ? 

400 REM TEST DATA z^i,^ h-^^ 

410 REM TRY THE FOLLOWING LEGAL DATA ' , 

420 REM TRY 07; 15; 00 A.M. (/^ ta 

430 REM TRY 07; 15; A.M. 

440 REM TRY 07;; A.M. 

450 REM TRY 07; 15; 00 P.M. 

460 REM TRY 07;15;P.M. 

470 REM TRY 07;;P.M. 

480 REM TRY 7;15;0 A.M. 

490 REM TRY 7;15;P.M. 

500 REM TRY 0;01;00 A.M. 

510 REM TRY ;;;P.M. 

520 REM TRY 0;0;05 A.M. 

530 REM TRY 0; ; 3P.M. 

540 REM TRY THE FOLLOWING ILLEGAL DATA 

550 REM TRY 13; 05; 01 A.M. 

560 REM TRY 1;15;01 X.Y. 

570 REM TRY 5; 61; 11 A.M. 

580 REM TRY 3;-4;2 P.M. 

590 REM TRY 3;4;-l A.M. 

600 REM TRY 2;4;60 P.M. 

610 REM TRY -1;5;1 A.M. 

It/t /I iu/v. 

6. 1 REM A PROGRAM TO COUNT THE VOWELS IN A STRING 

5 DIM PL(78) 

10 INPUT "INPUT A STRING" ;A$ » ! . ^ . . /^^ql^ 

15 N=0 =^ .^H.-? "^"^ L 

17 FOR I-l TO 78 : PL (I) =0: NEXT I J^L 7^ 

20 B$="AEI0U"<-^ ' ' " 

30 FOR 1=1 TO LEN(A$)~~^> 

40 FOR J=l TO 5 U^^-^ 

50 IF MID$(A$,I,])'i>MID$(B$,J,l) GO T080 

The outer loop is used to check each character in A$ while 

the inner loop is to check each character in B$. Since non-vowels 

are not interesting, simply branch to the end of the inner loop. 
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60 N=N+1 
70 PL(I)=1 

N is used as a counter for the total number of vowels. 
The array PL is used to calculate the position of each 
vowel found. Each position that has a vowel is set to 1. 



80 
90 
100 



110 
120 
130 
140 



145 
146 
150 

200 
210 
220 
230 
240 
250 
260 

5 
10 
20 
30 
40 
50 
60 
70 
80 
100 
110 
120 
130 
140 
150 



NEXT J 
NEXT I 

PRINT "NUMBER OF VOWELS ARE" ;N; "POSITIONS ARlg^ ^1^4- Ak. ^^u^ 

Since the total number of vowels is to be printed only cn 
once, it is done in statement 100. At the same time set / 

up to print the positions on the same line by ending the ^^^'^ 
PRINT statement with a; 

FOR J=l TO 78 
IF PL(J)=0 GO TO 140 
PRINT Jb 
NEXT J 



the same 




The above loop is set 
vowel ; that 
ofa vowel . 



if PL(J)=1 then 



le 
as 



PRINT statement 
statement 100 eai 



j because of the semicolon (;) at tl 



the positions of each 
is the position number 

ir-t5trwiTr^ 

h time through the loop 
:e end of the statement. 



PRINT 
PRINT 
GO TO 10 



REM TEST DATA 

REM INPUT A SINGLE CHARACTER 

INPUT A LONG LINE WITH ALL VOWELS IN IT 

REM INPUT "" (TEST A NULL STRING) 

INPUT JUST A 'RETURN' 

REM TRY A STRING WITH NO VOWELS IN IT 

END 

REM A PROGRAM TO CHANGE ALL J's TO H's. 

INPUT "INPUT A STRING" ;A$ 

L=LEN(A$) 

FOR I-l TO L 

B$=MID$(A$,I,1) 

IF B$="J" THEN B$="H" 

C$=C$+B$ 

NEXT I 

PRINT "NEW STRING IS ";C$ 

REM TEST DATA 

REM INPUT A SINGLE J 

SINGLE CHARACTER 
"" (TEST A NULL STRING) 
STRING WITH A J AS THE LAST CHARACTER 



REM INPUT 
REM INPUT 
REM INPUT 
END 
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10 REM A PROGRAM TO CHANGE EVERY LETTER IN THE ALPHABET TO 

15 REM ANOTHER LETTER. 

20 INPUT "TYPE A STRING" ; A$ 

25 C$="" 

30 FOR 1=1 TO LEN(A$) 

40 B$=MID$(A$,I,1) 

45 IF B$= "" GO TO 90 

50 B=ASC(B$)-3 

Statement 40 gets a character. Statement 50 converts the 
character to its equivalent number and then subtracts 3 in 
order to change it to a different character. 

60 IF B>=65 GO TO 80 ^ ir/*^ Z i f ^/^J c 

70 B=B+26 

Since the alphabetic characters are the numbers between 
65 and 90, adjustments must be made if the character is 
less than 65. By adding 26 only when it is less than 65, 
we can never exceed 91. However, the case where the input 
characters do not fall in the range 65 - 90 is not provided f 

80 C$=C$+CHR$(B) 

Add the new character to the string. 

90 NEXT I 

100 PRINT C$ 

110 REM TEST DATA 

120 REM INPUT A SINGLE CHARACTER (TEST END POINT) 

130 REM INPUT A LONG LINE WITH EXACTLY 24 CHARACTERS IN IT 

135 REM (TEST END POINT OF INPUT) 

140 REM ""(TEST NULL STRING) 

150 REM TEST A LINE EXACTLY 25 CHARACTERS LONG. 

155 REM TEST A LINE OF SPECIAL CHARACTERS 

160 REM INPUT JUST A 'RETURN' 

170 REM TEST A LINE EXACTLY 64 CHARACTERS LONG. 



190 REM TRY A^ STRIN G WITH A COMMA (,), THEN TRY A COLON (•) 
200| -REF THE LAST 5 ARE LIMITATIONS" OF THE PET INPUT""STATEFENT^ 

205 j MMLIOM__c^m^i_^oii> them i 

210 relTunless^yotTuFFTe^ — ■ ■ ~~ ~ 

220 END 




PET STRING AND ARRAY HANDLING 



5 REM A PROGRAM TO COMPUTE THE ALPHABETIC POSITION OF A CHARACTER. 

8 PRINT "ENTER CHARACTER" 

10 INPUT A$ ^ ^ 

15 IF LEN(A$)> i ]tHEN PRINT "ENTER SINGLE C HARA£I1;^/gO TO 10 

20 FOR 1=1 TO 26 

30 B$="ABCi:«FGHIJKU1N0PQRSTUVWXYZ" 

40 IF A$=MID$(B$,I,1) GO TO 70 

50 NEXT I 

60 PRINT "NOT AN ALPHABETIC CHARACTER" 

65 GO TO 8 

70 PRINT A$;" IS IN POSITION"; I 

80 GO TO 8 

90 END 

100 REM TEST DATA 

110 INPUT A SINGLE CHARACTER 

120 REM INPUT A LONG LINE 

130 REM "" (TEST NULL STRING) 

140 REM TEST A SPECIAL CHARACTER 



5 REM A PROGRAM TO SQUEEZE OUT BLANKS. 

10 INPUT A$ 

15 B$="" 

18 IF LEN(A$)=0 THEN 60 

20 FOR 1=1 TO LEN(A$) 

30 IF MID$(A$,I,1)=" "GO TO 50 

40 B$=B$+MID$(A$,I,1) 

50 NEXT I 

60 PRINT "SQUEEZED STRING:" 

65 PRINT B$ 

70 GO TO 10 

100 REM TEST DATA 

110 INPUT A SINGLE CHARACTER CTEST END POINT) 

120 REM INPUT A LINE WITH NO BLANKS IN IT 

130 REM ""(TEST NULL STRING) 

140 REM TEST A LINE WITH ALL BLANKS 

150 REM INPUT JUST A 'RETURN' 

180 REM TRY A STRING WITH A COMMA (,), THEN TRY A COLON CO 

210 END 
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11. 



5 
6 
10 
100 
110 
120 
130 
140 
150 
160 
" 170 
^180 
^190 
^ 200 
/ 210 
^.'211 
^212 
^213 
^214 
^ 215 
^ 220 
^230 
/240 
^250 
^ 260 
^ 261 
/ 262 
^265 
^ 270 
^280 
^ 290 
^ 300 
^310 
320 
330 
340 
350 
400 
410 
420 
430 
440 
450 
460 
465 



\ 



\ 
\ 



\ 
\ 



\ 



REM EXAMPLE OF A PROGRAM TO SDRT CHARACTER STRINGS IN 
REM ALPHABETIC ORDER USING fflAPSORT. } 1 
DIM R$(100) V_. 
PRINT "pSii!Cg&4NPUT THE NAMES YOU WANT SORTED" 
PRINT "WHEN Y0U:2SR&..J1NISHED INPUT EOF . " 

N=N+1 \ /Jv-iO. Ici'h- e-a--^- 

INPUT R$(N) \ 
IF R$(N)<>"E0K' GO TO 130 
N=N-1 \ 
L=INT(N/2)+l \ 
IR=N \ 
IF L=l GO TO 212 
L=L-1 % 
S$=R$(L) 
GO TO 220 I 
S$=R$(IR) f 
R$(IR)=R$(1) » 
IR=IR-1 

IF IR< =1 GO TO 310 
J=L ♦ 
I=J : 
3=1*3 * 

IF J=IR GO TO 265 <* 
IF J > IR GO TO 290 
IF R$(J)> =R$(J+1) GO TC 
J=J+1 • 

IF S$ > =R$(J) GO TO 290 
R$(I)=R$(J) c 
GO TO 230 e. 
R$(I)=S$ 
GO TO 190 

R$e^)=s$ • 

FOR 1=1 TO N . 
PRINT R$(I) 
NEXT I 
END 

REM TEST DATA 

REM INPUT A SINGLE CHARACTER 
REM TRY 123 
REM TRY "" 
REM TRY 'RETURN' 
REM TRY 2 LONG STRINGS 

REM TRY A STRING WITH A COMMA (,) IN THE MIDDLE 
REM EMD ALL TEST CASES WITH "EOF" 



265- 
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VI. APPENDIX - Character Sets 

The following character sets are those used by the Commodore PET. 
The character sets described will be those used with the POKE statement 
and those used with the PRINT, CHR$, and ASC statements. There are three 
sets for the POKE statement, graphics, lower case, and reverse video 
There are only two sets for the PRINT, GHR$, and ASC statements. One 
is for graphics and the other is for lower case. 

The character set used with the PRINT statement is not as straight 
forwaxd as the one used with the POKE statement. For example, to get 
a reverse video character with the PRINT you must first hit the double 
quote (") then the 'RVS' key. All characters after that will be reverse 
video until the terminating double quote (" ) . 

Example of displaying reverse video characters. 

T: PRIN T" OaB" 

RtEEU 

R: READY. 

The characters in boxes represent reverse video characters. The 
EI is the character you get when the reverse video key is hit. 

An alternative method to get reverse video characters is to type 
CHR$(l8) rather than hit the 'RVS' key. 

Example of displaying reverse video characters. 

T: PRINT G HR$(18);"ABG" 

R: READY. 

Some characters have a dual numeric representation when used 
with the CHR$ function. For example, GHE$(35)= GHR$(99) =#. The 
following is a list of those numbers that represent the same char- 
acter. 



33,97 

3^,98 

36,100 

37,101 

38,102 

39.103 
40,10^ 

^1,105 
^2,106 
^3,107 

44,108 

45,109 
46,110 



47,111 
48,112 
49,113 
50,114 

51,115 
52,116 

53,117 
54,118 

55,119 
56,120 

57,121 
58,122 
59,123 



60,124 

61,125 
62,126 

63,127 
161,225 
162,226 

163,227 
164,228 

165,229 
166,230 

167,231 
168,232 

169,233 



170,234 

171,235 
172,236 

173,237 
174,238 

175,239 
176,240 
177,241 
178,242 
179,243 
180,244 
181,245 
182,246 



183,247 
184,248 
185,249 
186,250 
187,251 
188,252 

189,253 
190,254 
222,255 
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A. Character Codes for the PRINT. GHR$. and ASC. 
Lower case character set (location 59'^8«1^), 



161 


162 


163 


16^ 165 


167 


166 220 


168 


169 


223 


' E ' 


a' 
// 


n 
# 


' □' 
$ 


□ 

% 


» 


H 

& 


D' 


' H' 

, ( 


B' 

, ) , 


H 


33 


3^ 


35 


36 


37 


39 


38 


92 






95 



14? 1^5 157 i/f8 



SCREEN CURSOR 
_homeJ [ <> 



CURSOR 



INST 
DEL 



19 17 29 20 



209 


215 


197 


210 


212 


217 


213 201 


207 


208 222 


'n 
Q 


■□■ 

, w, 


, E 


Q 

R 


D 
T 


■□ 

Y 


'0 
U 


S 
1 





□ 
P 


n 


81 


87 


69 


82 


8i+ 


89 


85 


73 


79 


80 


94 


193 


211 


196 198 


199 


200 


202 203 


204 


186 




'4 

A 


>' 

S 


B 
D 


■ g' 

F 


ID 
G 


'□I 
H , 


H 
J 


H' 
K 


L 


□ 

* 


^ li 

f 


65 


83 


68 


70 


71 


72 


7^ 


75 


76 


58 


218 


216 


195 21^ 


I9ij- 


206 


205 172 


187 


191 




♦ 

Z 


♦ 

X 


c 




'm 




M, 






s 
7 




90 


88 


67 


86 


66 


78 


77 


14 


59 


63 




n 


he ; 


L92 


219 


221 


160 


188 


190 






SHIFT 
V ) 


Off 

RVS 

ON 


T] 


ffl 


m 1 


SPACE 




H 

> 


^RUN 
STOP 


SHIFT 



183 184 183 175 



R 
E 
T 
U 
R 
N 



18 64 91 93 



32 



60 62 



n 
7 


m 

. 8 J 


B 

. 9 




55 


56 


57 


47 


180 


181 


182 


170 


^1 

, 4 ,i 




[] 

, 6 J 


(3: 


52 






42 


177 


178 


179 


171 


:?] 


'm 
2 


ffl 
3 


' ffi 
, + 


49 


50 


51 


43 


176 


174 


173 


189 


[n 


?' 


□ 




48 


46 


45 


61 
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PET STRING AND ARRAY HANDLING 

B. Chaxacter Codes for the PRINT. CHR$. and ASC. 
Graphics character set (location 59468=12). 



161 


16? 


163 164 


105 


167 166 


220 


168 


169 223 


' n ' 


' a ' 

1 f 




' □ 
$ 


' □' 

0/ 

, % , 


■□ 


& 

v / 


n' 


'H' 
< 


, > 


'n 




33 


34 


35 


36 


37 


39 


38 


92 


40 


41 95 




onr> 


215 


197 210 


212 


217 213 


201 


207 


208 


222 


n 

. j 


'□ 
w. 


■b 

, E 


'B 

R 


,T 


Y 


■0' 

u 


H' 


□ 



n' 
P 


, ♦ . 




81 


87 


69 


82 


fill 


89 


85 


73 


79 


80 


94 


193 


211 


196 198 


199 


200 202 


203 


204 186 








i s 


a 

D 


■ Q' 
. F 


G . 


□1' 
H 


'H' 
J 


H 
>K 








141 
/ — \ 

R 
E 
T 


65 


83 


68 


70 


71 


72 


74 


75 


76 


58 




218 


216 


195 214 


194 


206 


205 


172 187 


191 




U 
R 
N 

13 


♦ 

z 


X . 


B' 

c 


V 






'S' 
M, 


t 


B' 

f 


■k 

7 

■■ • 




90 


88 


67 


86 


66 


78 


77 


44 


59 


63 







147 145 157 148 



146 192 219 221 

^1 



(ofT 
RVS 

ON 



m 
] 



18 64 91 93 



160 


188 


190 






SPACE 


< 


> 


RUN 
STOP 


SHIFT 


32 


60 


62 







cm 

SCREEN 
HOME 



CURSOII 



CUKSOK . 



INST 
DEL 



19 17 29 20 



183 184 185 175 



n 
7 



H 

8 



B 

9 



□ 



55 56 57 47 



180 181 182 170 



. 4 , 


|. 5 J 




'2 


52 


53 


54 


42 


177 


178 


179 


171 


H 

, 1 ,1 


2 


, 3 


+ 


49 


50 


51 


43 


176 


174 


173 


189 




(?: 


Q' 
^1 


\^ 


48 


46 


45 


61 
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APPENDIX 

G. Ghaxacter Codes for the POKE Statement. 

Reverse vieSS' lower case character set (location 59^8=l4)» 



ffFI 



fa" 

// 



cm 



□ 
$ 



□ 



Si 



I 



w 



B 
E 



Q 
R 



□ 
T 



4 

A 



5f 

S 



B 
D 



a 

F 



G 



♦ 

Z 



♦ 

X 



B 
C 



B 



192 219 221 



SHIFT 


• Off 
RVS 

ON 


fa ' 
@ 


'ffl 
[ 



m 



128 155 157 



231 230 


220 


232 


233 


223 


■□ 


r m 


' n' 


'H' 
( 


, ) . 


■ a ' 


167 


166 


156 168 


169 


159 


217 


213 201 


207 


208 


222 




'0 
u 


/ > 

H 

1 





n 
p 


s 

7T 


153 


1^9 


137 l'4-3 




158 


200 


202 


203 


204 


250 




'□]' 
■ " -[ 


f H' 
J . 




m 






136 


138 


193 1^0 


186 




206 205 


236 


251 


255 


V 


■ 

N 


,M, 


■ a ■ 

* 


H ' 

f 


■? 




li+2 


l4l 172 


187 


191 




22if 252 


254 






1 SPACE 


< 


'n' 
. > 


RUN 
STOP 


SHIFT 


160 


188 


190 







R 
E 
T 
U 
R 
N 



247 

n 

7 , 


248 

H 

8 . 


249 

{ H 
9 


239 

U 
/ 


183 


184 


185 


175 


244 


245 


246 


234 


■c 


C 

, 5 J 


LeJl 


i * 


180 


181 


182 


170 


241 


242 


243 


235 



H 
1 



rfiTrfi 



+ 



177 178 179 171 



240 -238 237 253 

cm 







□ 



176 174 173 189 



PET STRING AND ARRAY HANDLING 
D. Character Codes for the POKE statement* 



Graphics character set (location 59^*68 » 12). 



97 


98 


99 


100 


101 


103 


102 92 


lO'^ 


105 95 


' D 

/ 


B ' 
// 


■ n ' 


' □' 
$ 


' □ 


'□' 


H 

& 


n' 
\ 


B' 
( 






33 


3^ 


35 


36 


37 


39 


38 


28 


40 


41 


31 



81 


87 


69 


82 


84 


89 


85 


73 


79 


80 


94 


Q 


□ 
w 


'B' 
. E 


'y ■ 
R 


D 
T 


□ 
. Y 


u 


, 1 


n 

,0 


□ 
P 


7T 


17 


23 


5 


18 


20 


25 


21 


9 


15 


16 


30 


65 


83 


68 


70 


71 


72 


74 


75 


76 


122 




\^ 


s 


■a' 

D 


F 


□ 
G 


■q]' 

H 


■q' 

J 


B 
K 


'□' 


'□■ 




1 


19 


4 


6 


7 


8 


10 


11 


12 


58 




90 


88 


67 


86 


66 


78 


77 


108 


123 


127 




11. 




'a' 
c 


V, 


ILII 


I'izi' 

l.N 


'IS' 


a 


r 


'B 

7 

^ r, - 




26 


24 


3 


22 


2 


14 


13 


44 


59 


63 





R 
E 
T 
U 
R 
N 



119 120 121 111 

1 



n 

7 



8 



B 

9S 



U 



55 56 57 4? 
116 117 118 106 



C 
4 



D 

5 



[] 
6 



fa 



52 53 54 42 



113 114 115 107 



a 
1 



s 

2 



[B 



49 50 51 43 



64 91 93 



96 124 126 



' • — \ 

SHIFT 
' 


I RVS 


!-r 

[. ® 


'ffl' 
, t , 


m 


SPACE 


□ 
< 


'B 


r > 

RUN 

STOP 


SHIFT 



18. 



27 29 



32 



60 62 



112 110 109 125 



mm 



□ 



48 46 45 61 
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APPENDIX 



E. Character Codes for the POKE statement. 

Lower case cheiracter set (location 59'+68= 1^). 



97 


98 


99 


100 


101 


103 


102 


92 


104 


105 


95 


' D ' 
/ 


a 

II 


' □ 
# 


$ 


□ ' 


# 


B 

, & 


'D' 
\ 


B 

( 


B 

) 




33 




35 


36 


37 


39 


38 


28 


40 


41 


31 


81 


87 


69 


82 


m 


89 


85 


73 


79 


80 


94 


I'KI 
Q 


■□ 
W 


■b 

E 


' B 
R 


'u 

T 


Y 



U 


1 


n 




□ 
P 


n 
♦ , 


17 


23 


5 


18 


20 


25 


21 


9 


15 


16 


30 


65 


83 


68 


70 


71 


72 


74 


75 


76 


122 




4 

A 


s 


a' 

D 


■y 

F 


I'D ' 
1 G , 


Q]' 
H 


H 
[■ J ■ 


B 
K 


■□' 
L 


Ii 


1 


19 




6 


7 


8 


10 


11 


12 


58 




90 


88 


67 


86 


66 


78 


77 


108 


123 


127 ^- 


♦ 

z 


li 


B' 


' S 
V 


B 


■0' 
. N , 


M, 


□ 

f 


tl' 

r 


'B 

7 

. ■ 




26 




3 


22 


2 


14 


13 


44 


59 


63 








64 


91 


93 


96 


124 


126 







R 
E 
T 
U 
R 
N 







f OFF 




SHIFT 




RVS 




■ 









[ 



m 
] 



27 29 



SPACE 



32 



< 



> 



60 62 



RUN 
STOP 



119 

' n 

7 


120 
. 8 


121 
, 9 . 


111 


55 


56 


57 


47 


116 


117 


118 


106 


■ c ■ 

, 4 


'C 

, 5 . 




r □ 

i, * ,^ 


52 


53 


54 


42 



113 114 115 107 

I 



H 
1 



B 
2 



ffi 
3 



CB 
+ 



49 50 51 43 



112 110 109 125 



a 

48 



□ 



□ 



E3 



^ 45 61 
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Notes 

S-b L 4^/ 



/ (TV 




67. tAo.^^^ t>6:^>x i2.7i"^cj6i- 



Set-.. 







-w- ,.— I..,..., 

it / I'l 





I 




I 



in 



L. 
L 
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